home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / ABUSESRC.ZIP / AbuseSrc / abuse / abuse.lsp < prev    next >
Lisp/Scheme  |  1996-04-24  |  2KB  |  63 lines
  1. (perm-space)
  2. (setq load_warn nil)
  3. (setq section 'game_section)
  4. (if (not (load "lisp/english.lsp"))             ;; load language specific stuff
  5.     (progn (print "Please make sure you unzipped the game with the -d option")(quit)))
  6. (setq load_warn T)
  7. (load "lisp/common.lsp")
  8. (load "lisp/userfuns.lsp")
  9. (load "lisp/options.lsp")     
  10. (load "lisp/startup.lsp")
  11.  
  12.  
  13. ;*************************************
  14. ;*************************************
  15. ;*************************************
  16. (if (not (local_load "lisp/input.lsp"))   ; get local copy first
  17.     (load "lisp/input.lsp"))
  18. ;*************************************
  19. ;*************************************
  20. ;*************************************
  21. ;*************************************
  22. ;*************************************
  23. ;*************************************
  24. (load "lisp/sfx.lsp")
  25. ;*************************************
  26. ;*************************************
  27. ;*************************************
  28. (load "lisp/gates.lsp")
  29. ;*************************************
  30. ;*************************************
  31. ;*************************************
  32. (load "lisp/duong.lsp")
  33. ;*************************************
  34. ;*************************************
  35. ;*************************************
  36. (load "lisp/ant.lsp")
  37. ;*************************************
  38. ;*************************************
  39. ;*************************************
  40. (load "lisp/people.lsp")
  41. ;*************************************
  42. ;*************************************
  43. ;*************************************
  44. (load "lisp/weapons.lsp")
  45. ;*************************************
  46. ;*************************************
  47. ;*************************************
  48. (load "lisp/explo.lsp")
  49. ;*************************************
  50. ;*************************************
  51. ;*************************************
  52. (load "lisp/platform.lsp")
  53. (load "lisp/guns.lsp")
  54. (load "lisp/jugger.lsp")
  55. (load "lisp/flyer.lsp")
  56. (load "lisp/teleport.lsp")
  57. (load "lisp/general.lsp")
  58. (load "lisp/powerup.lsp")
  59. (load "lisp/doors.lsp")
  60. (load "lisp/light.lsp")(load "lisp/ladder.lsp")(load "lisp/switch.lsp")
  61. (setq bad_guy_list (list DARNEL ANT_ROOF TRACK_GUN SPRAY_GUN JUGGER ROB1 WHO ROCKET FLYER GREEN_FLYER BOSS_ANT))
  62. (gc)(tmp-space)(create_players DARNEL)
  63.